home *** CD-ROM | disk | FTP | other *** search
/ Amiga Format CD 23 / Amiga Format AFCD23 (Feb 1998, Issue 107).iso / -seriously_amiga- / shareware / programming / e / easyplugins / examples / register_demo2.e < prev    next >
Text File  |  1997-12-06  |  1KB  |  48 lines
  1. /*
  2. **
  3. ** Demo for register PLUGIN (based on tabs_test.e shipped with easygui)
  4. **
  5. ** Copyright: Ralph Wermke of Digital Innovations
  6. ** EMail    : wermke@gryps1.rz.uni-greifswald.de
  7. ** WWW      : http://www.user.fh-stralsund.de/~rwermke/di.html
  8. **
  9. ** Date     : 03-Sep-1997
  10. **
  11. */
  12.  
  13. MODULE 'tools/easygui', 'tools/exceptions',
  14.        'utility/tagitem',
  15.        'easyplugins/register'
  16.  
  17. PROC main() HANDLE
  18.   DEF r=NIL:PTR TO register_plugin
  19.  
  20.   NEW r.register([PLA_Register_Titles,['Display','Edit','File'],
  21.                  TAG_DONE])
  22.  
  23.   easyguiA('Register in EasyGUI!',
  24.     [ROWS,
  25.       [TEXT,'Register test...',NIL,TRUE,5],
  26.       [PLUGIN,{regsaction},r],
  27.       [EQCOLS,
  28.         [BUTTON,{reset},'Reset',r],
  29.         [BUTTON,{toggle_enabled},'Toggle Enabled',r]
  30.       ]
  31.     ])
  32. EXCEPT DO
  33.   END r
  34.   report_exception()
  35. ENDPROC
  36.  
  37. PROC regsaction(i,r:PTR TO register_plugin)
  38.   WriteF('reg value = \d\n', r.get(PLA_Register_ActivePage))
  39. ENDPROC
  40.  
  41. PROC reset(r:PTR TO register_plugin,i)
  42.   r.set(PLA_Register_ActivePage, PLV_Register_ActivePage_First)
  43. ENDPROC
  44.  
  45. PROC toggle_enabled(r:PTR TO register_plugin,i)
  46.   r.set(PLA_Register_Disabled, Not(r.get(PLA_Register_Disabled)))
  47. ENDPROC
  48.